home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 2 / Macworld (1999-03) (Disk 2).dmg / Scripting Tools / Raise Trademark Symbols FREE / Raise Trademark Symbols •Code• < prev    next >
Text File  |  1997-07-30  |  825b  |  22 lines
  1. tell application "QuarkXPress™"
  2.     activate
  3.     if exists (document 1) then
  4.         tell document 1
  5.             set x to display dialog "Select a Type Style for ® and ™." buttons {"Superior", "Superscript", "Cancel"} default button 1
  6.             if button returned of x = "Superior" then
  7.                 set style of every character of every story ¬
  8.                     where (it is "™") or (it is "®") to ¬
  9.                     {on styles:{superior}, off styles:{superscript}}
  10.             else if button returned of x = "Superscript" then
  11.                 set style of every character of every story ¬
  12.                     where (it is "™") or (it is "®") to ¬
  13.                     {on styles:{superscript}, off styles:{superior}}
  14.             else
  15.                 --no characters present in document
  16.             end if
  17.         end tell
  18.         display dialog "This script was completed successfully."
  19.     else
  20.         display dialog "You must have a document open to run this script."
  21.     end if
  22. end tell